package Report;

use Moose;

extends 'Document';

augment 'as_xml' => sub {
	my $self = shift;
	
	my $xml = "  <report>\n";
	$xml .= inner() || q{};
	$xml .= "  </report>\n";
	
	return $xml;
};
1;

my $report = Report->new;
print $report->as_xml;